home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / muBackdrop10.lha / muBackdrop / Install < prev    next >
Text File  |  1995-04-29  |  4KB  |  193 lines
  1. ; $VER: Install 1.0 (04.14.95)
  2. ; Script to install Release 1.0 muBackdrop
  3. (complete 0)
  4.  
  5. (set @default-dest "sys:c/")
  6.  
  7. (set target @default-dest)
  8.  
  9. ;********************************************************************
  10.  
  11. (set #Yes-text
  12. (cat "Yes"
  13. ))
  14.  
  15. (set #No-text
  16. (cat "No"
  17. ))
  18.  
  19.  
  20. (set #Overwrite
  21. (cat "Replace"
  22. ))
  23.  
  24. (set #Abort
  25. (cat "Abort"
  26. ))
  27.  
  28. ;********************************************************************
  29.  
  30. (set #warn-kickstart-text
  31. (cat    "\nBAD VERSION OF KICKSTART\n\n"
  32.     "muBackdrop requires KickStart 2.0 (V37) or higher. It will not work on earlier versions.\n"
  33.     "You currently are running KickStart V%ld.\n\n"
  34.     "Continue with installation?"
  35. ))
  36.  
  37. ;********************************************************************
  38.  
  39. (set #docs-install-text
  40. (cat "Installing documentation"
  41. ))
  42.  
  43. (set #docs-query-text
  44. (cat "\nWould you like to install documentation for muBackdrop?"
  45. ))
  46.  
  47. (set #docs-help-text
  48. (cat ""
  49. ))
  50.  
  51. (set #docs-query-dir-text
  52. (cat "Where to install documentation?"
  53. ))
  54.  
  55. (set #docs-query-dir-help
  56. (cat @askdir-help
  57. ))
  58.  
  59. ;********************************************************************
  60.  
  61. (set #path-text
  62. (cat "Select directory to install muBackdrop into"
  63. ))
  64.  
  65. (set #path-help
  66. (cat @askdir-help
  67. ))
  68.  
  69. ;********************************************************************
  70.  
  71. (set #Overwrite-text
  72. (cat "\nThere is a version of muBackdrop installed already. "
  73.      "Would you like to replace it with this version?"
  74. ))
  75.  
  76. (set #Overwrite-abort-text
  77. (cat "Installation has been aborted, old version remains untouched."
  78. ))
  79.  
  80. ;********************************************************************
  81.  
  82. (set #MatrixLib-text
  83. (cat "\nInstalling matrix.library\n\nCopyright ©1992-95 David Swasbrook"
  84. ))
  85.  
  86. (set #MatrixLib-help
  87. (cat "This will copy matrix.library into your LIBS: directory.\nCopyright ©1992-95 David Swasbrook\n\n"
  88.      @copylib-help
  89. ))
  90.  
  91. ;********************************************************************
  92.  
  93.  
  94. (set @default-backdrop-path
  95. (cat "HOME:.backdrops/"
  96. ))
  97.  
  98. (set #backdrop-path-text
  99. (cat "Please enter the path to where the workbench backdrop files should be stored.\n"
  100.      "If you are running a multiuser system then it is suggested that these files be stored in the users "
  101.      "home directory."
  102. ))
  103.  
  104. (set #backdrop-path-help
  105. (cat "Enter the path to where you would like the workbench ".backdrop" files stored."
  106. ))
  107.  
  108. ;********************************************************************
  109.  
  110.  
  111. ;********************************************************************
  112. ;**** END OF TEXT
  113. ;********************************************************************
  114.  
  115. ;********************************
  116. ;**** CHECK THE KICKSTART VERSION
  117. ;****
  118. (set ver (/ (getversion) 65536) )
  119. (if (< ver 37) (
  120.     (set warning (#warn-kickstart-text ver) ) (message warning)
  121. ))
  122.  
  123. (complete 10)
  124.  
  125. (if (exists "bin:sys/" (noreq) )
  126.     (set target "bin:sys/" )
  127. )
  128.  
  129.  
  130. (set target
  131. (askdir (prompt #path-text) (help #path-help) (default target) (newpath)
  132. ))
  133.  
  134.  
  135. (complete 20)
  136.  
  137. (if (exists (tackon target "muBackdrop"))
  138. (
  139.     (if(askbool (prompt #Overwrite-text) (help #Overwrite-text) (choices #Overwrite #Abort)  )
  140.     (
  141.         (copyfiles (source "muBackdrop") (dest target) )
  142.     )
  143.     (
  144.         (abort #Overwrite-abort-text )
  145.     ))
  146. )
  147. (
  148.     (copyfiles (source "muBackdrop") (dest target) )
  149.     (complete 60)
  150.     (tooltype    (dest (tackon target "muBackdrop"))
  151.         (noposition)
  152.     )
  153. ))
  154.  
  155.  
  156. (complete 50)
  157.  
  158. (copylib (prompt #MatrixLib-text) (help #MatrixLib-help) (source "matrix.library") (dest "LIBS:") (confirm) )
  159.  
  160.  
  161. (complete 60)
  162. (set backdrop_file_path
  163. (askstring (prompt #backdrop-path-text) (help #backdrop-path-help) (default @default-backdrop-path)
  164. ))
  165.  
  166. (set to-be-added-to-startup
  167. (cat "RUN >NIL: " (tackon target "muBackdrop") " \"" backdrop_file_path "\""
  168. ))
  169.  
  170. (startup @app-name
  171.       (command to-be-added-to-startup)
  172.       (prompt "Installer will modify your S:User-Startup file. "
  173.           "The following lines will be appended to it:\n\n"
  174.           to-be-added-to-startup)
  175.       (help "   Installer needs to make indicated modifications to "
  176.         "your user startup file to make sure that everything is "
  177.         "correctly set up to run the " @app-name ".\n"
  178.         "   You should make modifications later by hand "
  179.         "if you skip this part."))
  180.  
  181. (complete 80) (working #docs-install-text)
  182.  
  183. (if(= (askbool (prompt #docs-query-text) (help #docs-query-help)) 1)
  184.     (
  185.         (set docs-target (askdir (prompt #docs-query-dir-text) (help #docs-query-dir-help) (default "SYS:")))
  186.         (copyfiles (source "muBackdrop.guide") (dest docs-target ) (infos) )
  187.     )
  188. )
  189.  
  190. (set @default-dest target)
  191. (complete 100)
  192.  
  193.